program CommandLine;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Core.Parser in 'Core.Parser.pas',
  Core.ParamList in 'Core.ParamList.pas',
  Core.CommandLine in 'Core.CommandLine.pas';

var
  cl: TCommandLine;
  int: Integer;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    cl := TCommandLine.Create;
    cl.Prefix := '-';
    cl.QuoteChar := '"';
    cl.TypChar := ':';
    cl.Parse;
    int := cl.Params['-i'].AsInteger;
    WriteLn(int);
    FreeAndNil(cl);
//    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
